* lisp/emacs-lisp/bytecomp.el: Guard against double native compilation.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index c5b086f91a06a982f26301e880f1f5f3aaf38782..20a481a8a1c65b5cbf640d08cba02c8f8a994ecc 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -5269,9 +5269,10 @@ and corresponding effects."
       (let ((byte-optimize nil)                ; do it fast
            (byte-compile-warnings nil))
        (mapc (lambda (x)
-               (or noninteractive (message "compiling %s..." x))
-               (byte-compile x)
-               (or noninteractive (message "compiling %s...done" x)))
+                (unless (subr-native-elisp-p x)
+                 (or noninteractive (message "compiling %s..." x))
+                 (byte-compile x)
+                 (or noninteractive (message "compiling %s...done" x))))
              '(byte-compile-normal-call
                byte-compile-form
                byte-compile-body